home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / mcode_01 / source / general / deledir.s < prev    next >
Encoding:
Text File  |  1995-04-27  |  998 b   |  32 lines
  1. * Program     : Deletes a directory
  2. * Author    : Stephen McNabb
  3. * Creation date : 15th February 1995
  4. * Last update    : 15th February 1995
  5. * Parameters    : Address of directory name
  6. * Output    : None
  7.  
  8. start:    jsr    cls        /clear the screen
  9.     move.l    #direct,-(sp)    /move address of directory name to stack
  10.     move.w    #$3a,-(sp)    /use Ddelete() function
  11.     trap    #1        /use gemdos
  12.     addq.l    #6,sp        /tidy up stack
  13.  
  14.     cmpi.b    #0,d0        /check to see if there was an error
  15.     blt    err        /if there is display an error message
  16.     
  17.     move.l    #success,d0    /else move address of success message into d0
  18.     bra    skip        /and skip the next line
  19. err:    move.l    #error,d0    /move address of error message into d0
  20. skip:    jsr    ptext        /display message on screen
  21.     
  22. end:    bra    exit        /exit from program
  23.  
  24.     include "\SOURCE\FUNCTION.S"    /include standard functions
  25.     
  26. *** Program Data ***
  27.  
  28. direct:    dc.b    '\TEST\',0        /directory to delete
  29. success:dc.b    'Directory deleted.',0    /success message
  30. error:    dc.b    'Error!',0        /error message
  31.  
  32. *** End of file ***